home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / fullscrnwall.s < prev    next >
Text File  |  1997-01-31  |  27KB  |  1,856 lines
  1. leftclip: dc.w 0
  2. rightclip: dc.w 0
  3. deftopclip: dc.w 0
  4. defbotclip: dc.w 0
  5. leftclipandlast: dc.w 0
  6.  
  7. SCALE MACRO
  8.  dc.w 64*0
  9.  dc.w 64*1
  10.  dc.w 64*1
  11.  dc.w 64*2
  12.  dc.w 64*2
  13.  dc.w 64*3
  14.  dc.w 64*3
  15.  dc.w 64*4
  16.  dc.w 64*4
  17.  dc.w 64*5
  18.  dc.w 64*5
  19.  dc.w 64*6
  20.  dc.w 64*6
  21.  dc.w 64*7
  22.  dc.w 64*7
  23.  dc.w 64*8
  24.  dc.w 64*8
  25.  dc.w 64*9
  26.  dc.w 64*9
  27.  dc.w 64*10
  28.  dc.w 64*10
  29.  dc.w 64*11
  30.  dc.w 64*11
  31.  dc.w 64*12
  32.  dc.w 64*12
  33.  dc.w 64*13
  34.  dc.w 64*13
  35.  dc.w 64*14
  36.  dc.w 64*14
  37.  dc.w 64*15
  38.  dc.w 64*15
  39.  dc.w 64*16
  40.  dc.w 64*16
  41.  dc.w 64*17
  42.  dc.w 64*17
  43.  dc.w 64*18
  44.  dc.w 64*18
  45.  dc.w 64*19
  46.  dc.w 64*19
  47.  dc.w 64*20
  48.  dc.w 64*20
  49.  dc.w 64*21
  50.  dc.w 64*21
  51.  dc.w 64*22
  52.  dc.w 64*22
  53.  dc.w 64*23
  54.  dc.w 64*23
  55.  dc.w 64*24
  56.  dc.w 64*24
  57.  dc.w 64*25
  58.  dc.w 64*25
  59.  dc.w 64*26
  60.  dc.w 64*26
  61.  dc.w 64*27
  62.  dc.w 64*27
  63.  dc.w 64*28
  64.  dc.w 64*28
  65.  dc.w 64*29
  66.  dc.w 64*29
  67.  dc.w 64*30
  68.  dc.w 64*30
  69.  dc.w 64*31
  70.  dc.w 64*31
  71.  dc.w 64*31
  72.  dc.w 64*31
  73.  dc.w 64*31
  74.  dc.w 64*31
  75.  dc.w 64*31
  76.  dc.w 64*31
  77.  dc.w 64*31
  78.  dc.w 64*31
  79.  dc.w 64*31
  80.  dc.w 64*31
  81.  dc.w 64*31
  82.  dc.w 64*31
  83.  dc.w 64*31
  84.  dc.w 64*31
  85.  dc.w 64*31
  86.  dc.w 64*31
  87.  dc.w 64*31
  88.  dc.w 64*31
  89.  ENDM
  90.  
  91. *********************************** 
  92.  
  93. * The screendivide routine is simpler
  94. * using a0=left pixel
  95. * a2= right pixel
  96. * d0= left dist
  97. * d2= right dist
  98. * d4 = left strip
  99. * d5 = right strip
  100.  
  101. * (a0)=leftx
  102. * 2(a0)=rightx
  103.  
  104. * 4(a0)=leftbm
  105. * 6(a0)=rightbm
  106.  
  107. * 8(a0)=leftdist
  108. * 10(a0)=rightdist
  109.  
  110. * 12(a0)=lefttop
  111. * 14(a0)=righttop
  112.  
  113. * 16(a0)=leftbot
  114. * 18(a0)=rightbot
  115.  
  116.  
  117. Doleftend:
  118.  
  119.  move.w leftclip,d0
  120.  sub.w #1,d0
  121.  move.w d0,leftclipandlast
  122.  
  123.  
  124.  move.w (a0),d0
  125.  move.w 2(a0),d1
  126.  sub.w d0,d1
  127.  bge.s sometodraw
  128.  rts
  129. sometodraw:
  130.  move.w itertab(pc,d1.w*4),d7
  131.  swap d0
  132.  move.w itertab+2(pc,d1.w*4),d6
  133.  clr.w d0
  134.  swap d1
  135.  clr.w d1
  136.  asr.l d6,d1
  137.  move.l d1,(a0)
  138.  
  139.  bra pstit
  140.  
  141. itertab:
  142.  incbin "iterfile"
  143.  
  144. pstit:
  145.  
  146.  moveq #0,d1
  147.  move.w 4(a0),d1
  148.  moveq #0,d2
  149.  move.w 6(a0),d2
  150.  sub.w d1,d2
  151.  swap d1
  152.  swap d2
  153.  asr.l d6,d2
  154.  move.l d2,4(a0)
  155.  
  156.  moveq #0,d2
  157.  move.w 8(a0),d2
  158.  moveq #0,d3
  159.  move.w 10(a0),d3
  160.  sub.w d2,d3
  161.  swap d2
  162.  swap d3
  163.  asr.l d6,d3
  164.  move.l d3,8(a0)
  165.  
  166.  moveq #0,d3
  167.  move.w 12(a0),d3
  168.  moveq #0,d4
  169.  move.w 14(a0),d4
  170.  sub.w d3,d4
  171.  swap d3
  172.  swap d4
  173.  asr.l d6,d4
  174.  move.l d4,12(a0)
  175.  
  176.  moveq #0,d4
  177.  move.w 16(a0),d4
  178.  moveq #0,d5
  179.  move.w 18(a0),d5
  180.  sub.w d4,d5
  181.  swap d4
  182.  swap d5
  183.  asr.l d6,d5
  184.  move.l d5,16(a0)
  185.  
  186.  
  187. *** Gouraud shading ***
  188.  moveq #0,d5
  189.  move.w 26(a0),d5
  190.  sub.w 24(a0),d5
  191.  add.w d5,d5
  192.  swap d5
  193.  asr.l d6,d5
  194.  move.l d5,28(a0)
  195.  moveq #0,d5
  196.  move.w 24(a0),d5
  197.  add.w d5,d5
  198.  swap d5
  199.  
  200.  bra screendivide
  201.  
  202. itercount: dc.w 0
  203.  
  204. screendividethru:
  205.  
  206. .scrdrawlop:
  207.  
  208.  move.w (a0)+,d0
  209.  move.l FASTBUFFER,a3
  210.  move.l (a0)+,d1
  211.  
  212.  bra .pastscrinto
  213.  
  214. .scrintocop:
  215.  incbin "XTOCOPX"
  216.  
  217. .pastscrinto 
  218.  
  219.  swap d1
  220.  
  221.  move.w d1,d6
  222.  and.w HORAND,d6
  223.  move.l (a0)+,d2
  224.  swap d2
  225.  add.w fromtile(pc),d6
  226.  add.w d6,d6
  227.  move.w d6,a5
  228.  move.l (a0)+,d3
  229.  swap d3
  230.  add.l #divthreetab,a5
  231.  move.w (a5),StripData
  232.  
  233.  move.l ChunkAddr,a5
  234.  moveq #0,d6
  235.  move.b StripData,d6
  236.  add.w d6,d6
  237.  move.w VALSHIFT,d4
  238.  asl.w d4,d6
  239.  add.w d6,a5
  240.  move.l (a0)+,d4
  241.  swap d4
  242.  move.w d2,d6
  243. ***************************
  244. * old version
  245.  asr.w #7,d6
  246. ***************************
  247. ; asr.w #3,d6
  248. ; sub.w #4,d6
  249. ; cmp.w #6,d6
  250. ; blt.s tstbrbr
  251. ; move.w #6,d6
  252. ;tstbrbr:
  253. ***************************
  254.  add.w angbright(pc),d6
  255.  bge.s .brnotneg
  256.  moveq #0,d6
  257. .brnotneg
  258.  cmp.w #32,d6
  259.  blt.s .brnotpos
  260.  move.w #32,d6
  261. .brnotpos
  262.  move.l PaletteAddr,a2
  263.  move.l a2,a4
  264.  add.w .ffscrpickhowbright(pc,d6*2),a2
  265. ; and.b #$fe,d6
  266. ; add.w .ffscrpickhowbright(pc,d6*2),a4
  267.  
  268. ; btst #0,d0
  269. ; beq .nobrightswap
  270. ; exg a2,a4
  271. ;.nobrightswap:
  272.  
  273.  move.w d7,-(a7)
  274.  bsr ScreenWallstripdrawthru
  275.  move.w (a7)+,d7
  276.  
  277.  dbra d7,.scrdrawlop
  278.  rts
  279.  
  280. .ffscrpickhowbright:
  281.  SCALE
  282.  
  283.  
  284. ***************************
  285.  
  286. screendivide:
  287.  
  288.  or.l #$ffff0000,d7
  289.  move.w leftclipandlast(pc),d6
  290.  move.l #WorkSpace,a2
  291.  
  292.  move.l (a0),a3
  293.  move.l 4(a0),a4
  294.  move.l 8(a0),a5
  295.  move.l 12(a0),a6
  296.  move.l 16(a0),a1
  297.  move.l 28(a0),a0
  298.  
  299. scrdivlop:
  300.  
  301.  swap d0
  302.  cmp.w d6,d0
  303.  bgt scrnotoffleft
  304.  swap d0
  305.  add.l a4,d1
  306.  add.l a5,d2
  307.  add.l a6,d3
  308.  add.l a1,d4
  309.  add.l a3,d0
  310.  add.l a0,d5
  311.  dbra d7,scrdivlop
  312.  rts
  313.  
  314. scrnotoffleft:
  315.  
  316.  move.w d0,d6
  317.  
  318.  cmp.w rightclip(pc),d0
  319.  bge.s outofcalc
  320.  
  321. scrnotoffright:
  322.  
  323.  
  324.  move.w d0,(a2)+
  325.  move.l d1,(a2)+
  326.  move.l d2,(a2)+
  327.  move.l d3,(a2)+
  328.  move.l d4,(a2)+
  329.  move.l d5,(a2)+
  330.  swap d0
  331.  add.l a3,d0
  332.  add.l a4,d1
  333.  add.l a5,d2
  334.  add.l a6,d3
  335.  add.l a1,d4
  336.  add.l a0,d5
  337.  add.l #$10000,d7
  338.  dbra d7,scrdivlop
  339.  
  340. outofcalc:
  341.  swap d7
  342.  tst.w d7
  343.  bge.s .somethingtodraw
  344.  rts
  345. .somethingtodraw:
  346.  
  347.  move.l #consttab,a1
  348.  move.l #WorkSpace,a0
  349.  
  350. ; tst.b seethru
  351. ; bne screendividethru
  352.  
  353. scrdrawlop:
  354.  
  355.  move.w (a0)+,d0
  356.  move.l FASTBUFFER,a3
  357.  lea (a3,d0.w*2),a3
  358.  move.l (a0)+,d1
  359.  
  360. ; bra pastscrinto
  361. ;
  362. ; 
  363. ;pastscrinto 
  364.  
  365.  swap d1
  366.  
  367.  move.w d1,d6
  368.  and.w HORAND,d6
  369.  move.l (a0)+,d2
  370.  swap d2
  371.  add.w fromtile(pc),d6
  372.  add.w d6,d6
  373.  move.w d6,a5
  374.  move.l (a0)+,d3
  375.  swap d3
  376.  add.l #divthreetab,a5
  377.  move.w (a5),StripData
  378.  
  379.  move.l ChunkAddr,a5
  380.  moveq #0,d6
  381.  move.b StripData,d6
  382.  add.w d6,d6
  383.  move.w VALSHIFT,d4
  384.  asl.w d4,d6
  385.  add.w d6,a5
  386.  move.l (a0)+,d4
  387.  swap d4
  388.  move.w d2,d6
  389. ***************************
  390. * old version
  391.  asr.w #7,d6
  392. ***************************
  393. ; asr.w #3,d6
  394. ; sub.w #4,d6
  395. ; cmp.w #6,d6
  396. ; blt.s tstbrbr
  397. ; move.w #6,d6
  398. ;tstbrbr:
  399. ***************************
  400.  move.l (a0)+,d5
  401.  swap d5
  402.  ext.w d5
  403.  add.w d5,d6
  404.  bge.s .brnotneg
  405.  moveq #0,d6
  406. .brnotneg
  407.  cmp.w #64,d6
  408.  blt.s .brnotpos
  409.  move.w #64,d6
  410. .brnotpos
  411.  move.l PaletteAddr,a2
  412.  move.l a2,a4
  413.  add.w ffscrpickhowbright(pc,d6*2),a2
  414.  and.b #$fe,d6
  415.  add.w ffscrpickhowbright(pc,d6*2),a4
  416.  
  417.  btst #0,d0
  418.  beq .nobrightswap
  419.  exg a2,a4
  420. .nobrightswap:
  421.  
  422.  move.w d7,-(a7)
  423.  bsr ScreenWallstripdraw
  424.  move.w (a7)+,d7
  425.  
  426. toosmall:
  427.  
  428.  dbra d7,scrdrawlop
  429.  
  430.  rts
  431.  
  432. middleline:
  433.  dc.w 0
  434.  
  435. ;scrintocop:
  436. ; incbin "XTOCOPX"
  437. prot4: dc.w 0
  438.  
  439. fromtile: dc.l 0
  440. fromquartertile: dc.l 0
  441. swapbrights: dc.w 0
  442. angbright: dc.w 0
  443.  
  444. leftside: dc.b 0
  445. rightside: dc.b 0
  446. firstleft: dc.w 0
  447.  
  448. ffscrpickhowbright:
  449.  SCALE
  450.  
  451. divthreetab:
  452. val SET 0
  453.  REPT 130
  454.  dc.b val,0
  455.  dc.b val,1
  456.  dc.b val,2
  457. val SET val+1
  458.  ENDR
  459.  
  460. StripData: dc.w 0
  461.  
  462. * using a0=left pixel
  463. * a2= right pixel
  464. * d0= left height
  465. * d2= right height
  466. * d4 = left strip
  467. * d5 = right strip
  468.  
  469.  
  470. * Routine to draw a wall;
  471. * pass it X and Z coords of the endpoints
  472. * and the start and end length, and a number
  473. * representing the number of the wall.
  474.  
  475. * a0=x1 d1=z1 a2=x2 d3=z2
  476. * d4=sl d5=el
  477. * a1 = strip buffer
  478.  
  479. store: ds.l 500
  480.  
  481. ******************************************************************
  482.  
  483. * Curve drawing routine. We have to know:
  484. * The top and bottom of the wall
  485. * The point defining the centre of the arc
  486. * the point defining the starting point of the arc
  487. * the start and end angles of the arc
  488. * The start and end positions along the bitmap of the arc
  489. * Which bitmap to use for the arc
  490.  
  491. xmiddle: dc.w 0
  492. zmiddle SET 2
  493.  dc.w 0
  494. xradius SET 4
  495.  dc.w 0
  496. zradius SET 6
  497.  dc.w 0
  498. startbitmap SET 8
  499.  dc.w 0
  500. bitmapcounter SET 10
  501.  dc.w 0
  502. brightmult SET 12
  503.  dc.w 0
  504. angadd SET 14
  505.  dc.l 0
  506. xmiddlebig SET 18
  507.  dc.l 0
  508. basebright SET 22
  509.  dc.w 0
  510. shift SET 24
  511.  dc.w 0
  512. count SET 26
  513.  dc.w 0
  514.  
  515. subdividevals:
  516.  dc.w 2,4
  517.  dc.w 3,8
  518.  dc.w 4,16
  519.  dc.w 5,32
  520.  dc.w 6,64
  521.  
  522. CurveDraw:
  523.  
  524.  move.w (a0)+,d0    ; centre of rotation
  525.  move.w (a0)+,d1    ; point on arc
  526.  move.l #Rotated,a1
  527.  move.l #xmiddle,a2
  528.  move.l (a1,d0.w*8),d2
  529.  move.l d2,18(a2)
  530.  asr.l #7,d2
  531.  move.l (a1,d1.w*8),d4
  532.  asr.l #7,d4
  533.  sub.w d2,d4
  534.  move.w d2,(a2)
  535.  move.w d4,4(a2)
  536.  move.w 6(a1,d0.w*8),d2
  537.  move.w 6(a1,d1.w*8),d4
  538.  sub.w d2,d4
  539.  move.w d2,2(a2)
  540.  asr.w #1,d4
  541.  move.w d4,6(a2)
  542.  move.w (a0)+,d4    ; start of bitmap
  543.  move.w (a0)+,d5    ; end of bitmap
  544.  move.w d4,8(a2)
  545.  sub.w d4,d5
  546.  move.w d5,10(a2)
  547.  move.w (a0)+,d4
  548.  ext.l d4
  549.  move.l d4,14(a2)
  550.  move.w (a0)+,d4
  551.  move.l #subdividevals,a3
  552.  move.l (a3,d4.w*4),shift(a2)
  553.  
  554.  move.l #walltiles,a3
  555.  add.l (a0)+,a3
  556.  adda.w wallyoff,a3
  557.  move.l a3,fromtile
  558.  move.w (a0)+,basebright(a2)
  559.  move.w (a0)+,brightmult(a2)
  560.  move.l (a0)+,topofwall
  561.  move.l (a0)+,botofwall
  562.  move.l yoff,d6
  563.  sub.l d6,topofwall
  564.  sub.l d6,botofwall
  565.  
  566.  move.l #databuffer,a1
  567.  move.l #SineTable,a3
  568.  lea 2048(a3),a4
  569.  moveq #0,d0
  570.  moveq #0,d1
  571.  move.w count(a2),d7
  572. DivideCurve
  573.  move.l d0,d2
  574.  move.w shift(a2),d4
  575.  asr.l d4,d2
  576.  move.w (a3,d2.w*2),d4
  577.  move.w d4,d5
  578.  move.w (a4,d2.w*2),d3
  579.  move.w d3,d6
  580.  muls.w 4(a2),d3
  581.  muls.w 6(a2),d4
  582.  muls.w 4(a2),d5
  583.  muls.w 6(a2),d6
  584.  sub.l d4,d3
  585.  add.l d6,d5
  586.  asl.l #2,d5
  587.  asr.l #8,d3
  588.  add.l 18(a2),d3
  589.  swap d5
  590.  move.w basebright(a2),d6
  591.  move.w brightmult(a2),d4
  592.  muls d5,d4
  593.  swap d4
  594.  add.w d4,d6
  595.  
  596.  add.w 2(a2),d5
  597.  move.l d3,(a1)+
  598.  move.w d5,(a1)+
  599.  move.w d1,d2
  600.  move.w shift(a2),d4
  601.  asr.w d4,d2
  602.  add.w 8(a2),d2
  603.  move.w d2,(a1)+
  604.  move.w d6,(a1)+
  605.  
  606.  add.l 14(a2),d0  
  607.  add.w 10(a2),d1
  608.  dbra d7,DivideCurve
  609.  
  610.  move.l a0,-(a7)
  611.  
  612. ; move.w #31,d6
  613. ; move.l #0,d3
  614. ; move.l #stripbuffer,a4
  615. ;.emptylop:
  616. ; move.l d3,(a4)+
  617. ; dbra d6,.emptylop
  618.  
  619.  bsr curvecalc
  620.  
  621.  move.l (a7)+,a0
  622.  
  623.  rts
  624.  
  625. prot3: dc.w 0
  626.  
  627. curvecalc:
  628.  move.l #databuffer,a1
  629.  move.w count(a2),d7
  630.  subq #1,d7
  631. .findfirstinfront:
  632.  move.l (a1)+,d1
  633.  move.w (a1)+,d0
  634.  bgt.s .foundinfront
  635.  move.w (a1)+,d4
  636.  move.w (a1)+,d6
  637.  dbra d7,.findfirstinfront
  638. ; CACHE_ON d2
  639.  rts    ; no two points were in front
  640.  
  641. .foundinfront:
  642.  move.w (a1)+,d4
  643.  move.w (a1)+,d6
  644.  ; d1=left x, d4=left end, d0=left dist
  645.  ; d6=left angbright 
  646.  
  647.  divs d0,d1
  648.  add.w #MIDDLEX,d1
  649.  
  650.  move.l topofwall(pc),d5
  651.  divs d0,d5
  652.  add.w MIDDLEY,d5
  653.  move.w d5,strtop
  654.  move.l botofwall(pc),d5
  655.  divs d0,d5
  656.  add.w MIDDLEY,d5
  657.  move.w d5,strbot
  658.  
  659. ; CACHE_OFF d2
  660.  
  661. .computeloop:
  662.  move.w 4(a1),d2
  663.  bgt.s .infront
  664.  
  665. ; addq #8,a1
  666. ; dbra d7,.findfirstinfront
  667.  
  668. ; CACHE_ON d2
  669.  rts
  670.  
  671. .infront:
  672.  move.l #store,a0
  673.  move.l (a1),d3
  674.  move.w 6(a1),d5
  675.  add.w 8(a1),d6
  676.  asr.w #1,d6
  677.  move.w d6,angbright
  678.  divs d2,d3
  679.  add.w #MIDDLEX,d3
  680.  move.w strtop(pc),12(a0)
  681.  move.w strbot(pc),16(a0)
  682.  move.l topofwall(pc),d6
  683.  divs d2,d6
  684.  add.w MIDDLEY,d6
  685.  move.w d6,strtop
  686.  move.w d6,14(a0)
  687.  move.l botofwall(pc),d6
  688.  divs d2,d6
  689.  add.w MIDDLEY,d6
  690.  move.w d6,strbot
  691.  move.w d6,18(a0)
  692.  move.w d3,2(a1)
  693.  blt.s .alloffleft
  694.  cmp.w #RIGHTX,d1
  695.  bgt.s .alloffleft
  696.  
  697.  cmp.w d1,d3
  698.  blt.s .alloffleft
  699.  
  700.  move.w d1,(a0)
  701.  move.w d3,2(a0)
  702.  move.w d4,4(a0)
  703.  move.w d5,6(a0)
  704.  move.w d0,8(a0)
  705.  move.w d2,10(a0)
  706.  move.w d7,-(a7)
  707.  move.w #maxscrdiv,d7
  708.  bsr Doleftend
  709.  move.w (a7)+,d7
  710.  
  711. .alloffleft:
  712.  
  713.  move.l (a1)+,d1
  714.  move.w (a1)+,d0
  715.  move.w (a1)+,d4
  716.  move.w (a1)+,d6
  717.  
  718.  dbra d7,.computeloop
  719.  
  720. .alloffright:
  721. ; CACHE_ON d2
  722.  rts
  723.  
  724. ;protcheck:
  725. ; sub.l #53624,a3
  726. ; add.l #2345215,a2
  727. ; lea passspace-$30000(pc),a1
  728. ; add.l #$30000,a1
  729. ; lea startpass(pc),a5
  730. ; move.w #endpass-startpass-1,d1
  731. ;copypass:
  732. ; move.b (a5)+,(a1)+
  733. ; dbra d1,copypass
  734. ; sub.l a5,a5
  735. ; lea passspace-$30000(pc),a1
  736. ; add.l #$30000,a1
  737. ; jsr (a1)
  738. ; lea passspace-$30000(pc),a1
  739. ; add.l #$30000,a1
  740. ; lea startpass(pc),a5
  741. ; move.w #(endpass-startpass)/2-1,d1
  742. ;erasepass:
  743. ; move.w -(a5),(a1)+
  744. ; dbra d1,erasepass
  745. ; sub.l a5,a5
  746. ; sub.l a1,a1
  747. ; eor.l #$af594c72,d0
  748. ; sub.l #123453986,a4
  749. ; move.l d0,(a4)
  750. ; add.l #123453986,a4
  751. ; move.l #0,d0
  752. ; sub.l #2345215,a2
  753. ; jsr (a2)
  754. ; sub.l a2,a2
  755. ; eor.l #$af594c72,d0
  756. ; sub.l #123453986,a4
  757. ; move.l (a4),d1
  758. ; add.l #123453986,a4
  759. ; cmp.l d1,d0
  760. ; bne.s notrightt
  761. ; add.l #53624,a3
  762. ; move.w #9,d7
  763. ;sayitsok:
  764. ; move.l (a3)+,a2
  765. ; add.l #78935450,a2
  766. ; st (a2)
  767. ; dbra d7,sayitsok
  768. ;notrightt:
  769. ; sub.l a3,a3
  770. ;nullit:
  771. ; rts
  772. ; 
  773. ; incbin "ab3:includes/protroutencoded"
  774.  
  775. endprot:
  776.  
  777. ******************************************************************
  778.  
  779. iters: dc.w 0
  780. multcount: dc.w 0
  781.  
  782. walldraw:
  783.  
  784.  tst.w d1
  785.  bgt.s oneinfront1
  786.  tst.w d3
  787.  bgt.s oneinfront
  788.  rts
  789.  
  790. oneinfront1
  791.  tst.w d3
  792.  ble.s oneinfront
  793. ; Bothinfront!
  794.  
  795.  nop
  796.  
  797. oneinfront
  798.  
  799.  move.w #32,d7
  800.  move.w #3,d6
  801.  
  802.  move.w d3,d0
  803.  sub.w d1,d0
  804.  bge.s notnegzdiff
  805.  neg.w d0
  806. notnegzdiff
  807. ; cmp.w #1024,d0
  808. ; blt.s nd01
  809. ; add.w d7,d7
  810. ; add.w #1,d6
  811. ;nd01:
  812.  cmp.w #512,d0
  813.  blt.s nd0 
  814.  add.w d7,d7
  815.  add.w #1,d6
  816.  bra nha
  817. nd0:
  818.  
  819.  cmp.w #256,d0
  820.  bgt.s nh1
  821.  asr.w #1,d7
  822.  subq #1,d6
  823. nh1:
  824.  cmp.w #128,d0
  825.  bgt.s nh2
  826.  asr.w #1,d7
  827.  subq #1,d6
  828. nh2:
  829.  
  830. nha:
  831.  
  832.  move.w d3,d0
  833.  cmp.w d1,d3
  834.  blt.s rightnearest
  835.  move.w d1,d0
  836. rightnearest:
  837.  cmp.w #64,d0
  838.  bgt.s nd1
  839.  addq #1,d6
  840.  add.w d7,d7
  841. nd1:
  842.  
  843.  cmp.w #128,d0
  844.  blt.s nh3
  845.  asr.w #1,d7
  846.  subq #1,d6
  847.  blt.s nh3
  848.  cmp.w #256,d0
  849.  blt.s nh3
  850.  asr.w #1,d7
  851.  subq #1,d6
  852. nh3:
  853.  move.w d6,iters
  854.  subq #1,d7
  855.  move.w d7,multcount
  856.  
  857.  move.l #databuffer,a3
  858.  move.l a0,d0
  859.  move.l a2,d2
  860.  
  861.  move.l d0,(a3)+
  862.  add.l d2,d0
  863.  move.w d1,(a3)+
  864.  asr.l #1,d0
  865.  move.w d4,(a3)+
  866.  
  867.  move.w leftwallbright,d6
  868.  move.w d6,(a3)+
  869.  
  870.  add.w d5,d4
  871.  move.l d0,(a3)+
  872.  add.w d3,d1
  873.  asr.w #1,d1
  874.  move.w d1,(a3)+
  875.  asr.w #1,d4
  876.  move.w d4,(a3)+
  877.  
  878.  add.w rightwallbright,d6
  879.  asr.w #1,d6
  880.  move.w d6,(a3)+
  881.  
  882.  move.l d2,(a3)+
  883.  move.w d3,(a3)+
  884.  move.w d5,(a3)+
  885.  move.w rightwallbright,(a3)+
  886.  
  887.  ; We now have the two endpoints and the midpoint
  888.  ; so we need to perform 1 iteration of the inner
  889.  ; loop, the first time.
  890.  
  891. * Decide how often to subdivide by how far away the wall is, and
  892. * how perp. it is to the player.
  893.  
  894.  move.l #databuffer,a0
  895.  move.l #databuffer2,a1
  896.  
  897.  move.w iters,d6
  898.  blt noiters
  899.  move.l #1,a2
  900.  
  901. iterloop:
  902.  move.l a0,a3
  903.  move.l a1,a4
  904.  move.w a2,d7
  905.  exg a0,a1
  906.  
  907.  move.l (a3)+,d0
  908.  move.w (a3)+,d1
  909.  move.l (a3)+,d2
  910. middleloop:
  911.  move.l d0,(a4)+
  912.  move.l (a3)+,d3
  913.  add.l d3,d0
  914.  move.w d1,(a4)+
  915.  asr.l #1,d0
  916.  move.w (a3)+,d4
  917.  add.w d4,d1
  918.  move.l d2,(a4)+
  919.  asr.w #1,d1
  920.  move.l (a3)+,d5
  921.  add.l d5,d2
  922.  move.l d0,(a4)+
  923.  asr.l #1,d2
  924.  move.w d1,(a4)+
  925.  move.l d2,(a4)+
  926.  
  927.  move.l d3,(a4)+
  928.  move.l (a3)+,d0
  929.  add.l d0,d3
  930.  
  931.  move.w d4,(a4)+
  932.  asr.l #1,d3
  933.  move.w (a3)+,d1
  934.  add.w d1,d4
  935.  move.l d5,(a4)+
  936.  asr.w #1,d4
  937.  move.l (a3)+,d2
  938.  add.l d2,d5
  939.  move.l d3,(a4)+
  940.  asr.l #1,d5
  941.  move.w d4,(a4)+
  942.  move.l d5,(a4)+
  943.  
  944.  
  945.  subq #1,d7
  946.  bgt.s middleloop
  947.  move.l d0,(a4)+
  948.  move.w d1,(a4)+
  949.  move.l d2,(a4)+
  950.  
  951.  add.w a2,a2
  952.  
  953.  dbra d6,iterloop
  954.  
  955. noiters:
  956.  
  957. CalcAndDraw:
  958.  
  959. ; CACHE_ON d2
  960.  
  961.  move.l a0,a1
  962.  move.w multcount,d7
  963. .findfirstinfront:
  964.  move.l (a1)+,d1
  965.  move.w (a1)+,d0
  966.  bgt.s .foundinfront
  967.  move.l (a1)+,d4
  968.  dbra d7,.findfirstinfront
  969.  rts    ; no two points were in front
  970.  
  971. .foundinfront:
  972.  move.w (a1)+,d4
  973.  move.w (a1)+,lbr
  974.  ; d1=left x, d4=left end, d0=left dist 
  975.  
  976.  divs d0,d1
  977.  add.w #MIDDLEX,d1
  978.  
  979.  move.l topofwall(pc),d5
  980.  divs d0,d5
  981.  add.w MIDDLEY,d5
  982.  move.w d5,strtop
  983.  move.l botofwall(pc),d5
  984.  divs d0,d5
  985.  add.w MIDDLEY,d5
  986.  move.w d5,strbot
  987.  
  988. .computeloop:
  989.  move.w 4(a1),d2
  990.  bgt.s .infront
  991.  rts
  992.  
  993. .infront:
  994.  move.l #store,a0
  995.  move.l (a1),d3
  996.  divs d2,d3
  997.  move.w 6(a1),d5
  998.  add.w #MIDDLEX,d3
  999.  move.w strtop(pc),12(a0)
  1000.  move.l topofwall(pc),d6
  1001.  divs d2,d6
  1002.  move.w strbot(pc),16(a0)
  1003.  add.w MIDDLEY,d6
  1004.  move.w d6,strtop
  1005.  move.w d6,14(a0)
  1006.  move.l botofwall(pc),d6
  1007.  divs d2,d6
  1008.  add.w MIDDLEY,d6
  1009.  move.w d6,strbot
  1010.  move.w d6,18(a0)
  1011.  move.w d3,2(a1)
  1012.  cmp.w leftclip(pc),d3
  1013.  blt.s .alloffleft
  1014.  cmp.w rightclip(pc),d1
  1015. ; cmp.w #95,d1
  1016.  bge.s .alloffright
  1017.  
  1018.  move.w d1,(a0)
  1019.  move.w d3,2(a0)
  1020.  move.w d4,4(a0)
  1021.  move.w d5,6(a0)
  1022.  move.w d0,8(a0)
  1023.  move.w d2,10(a0)
  1024.  
  1025.  move.w lbr,d5
  1026.  sub.w #300,d5
  1027.  ext.w d5
  1028.  move.w d5,24(a0)
  1029.  move.w 8(a1),d5
  1030.  sub.w #300,d5
  1031.  ext.w d5
  1032.  move.w d5,26(a0)
  1033.  
  1034.  movem.l d7/a1,-(a7)
  1035.  move.w #maxscrdiv,d7
  1036.  bsr Doleftend
  1037.  movem.l (a7)+,d7/a1
  1038.  
  1039. .alloffleft:
  1040.  
  1041.  move.l (a1)+,d1
  1042.  move.w (a1)+,d0
  1043.  move.w (a1)+,d4
  1044.  move.w (a1)+,lbr
  1045.  
  1046.  dbra d7,.computeloop
  1047.  rts
  1048.  
  1049. .alloffright:
  1050.  rts
  1051.  
  1052. lbr: dc.w 0
  1053. leftwallbright: dc.w 0
  1054. rightwallbright: dc.w 0
  1055. strtop: dc.w 0
  1056. strbot: dc.w 0
  1057.  
  1058. databuffer:
  1059.  ds.l 1200
  1060. databuffer2:
  1061.  ds.l 1200
  1062.  
  1063. ***********************************
  1064.  
  1065. * Need a routine which takes...?
  1066. * Top Y (3d)
  1067. * Bottom Y (3d)
  1068. * distance
  1069. * height of each tile (number and routine addr)
  1070. * And produces the appropriate strip on the
  1071. * screen.
  1072.  
  1073. topofwall: dc.l 0
  1074. botofwall: dc.l 0
  1075.  
  1076. nostripq:
  1077.  rts
  1078.  
  1079. ScreenWallstripdraw:
  1080.  
  1081.  move.w d4,d6
  1082.  cmp.w topclip(pc),d6
  1083.  blt.s nostripq
  1084.  cmp.w botclip(pc),d3
  1085.  bgt.s nostripq
  1086.  
  1087.  cmp.w botclip(pc),d6
  1088.  ble.s noclipbot
  1089.  move.w botclip(pc),d6
  1090. noclipbot:
  1091.  
  1092.  move.w d3,d5
  1093.  cmp.w topclip(pc),d5
  1094.  bge.s nocliptop
  1095.  move.w topclip(pc),d5
  1096.  btst #0,d5
  1097.  beq.s .nsbd
  1098.  exg a2,a4
  1099. .nsbd:
  1100.  
  1101.  sub.w d5,d6    ; height to draw.
  1102.  ble.s nostripq
  1103.  
  1104.  bra gotoend
  1105.  
  1106. nocliptop:
  1107.  
  1108.  btst #0,d5
  1109.  beq.s .nsbd
  1110.  exg a2,a4
  1111. .nsbd:
  1112.  
  1113.  sub.w d5,d6    ; height to draw.
  1114.  ble.s nostripq
  1115.  
  1116.  bra gotoend
  1117.  
  1118. wlcnt: dc.w 0
  1119.  
  1120.  CNOP 0,4
  1121. drawwalldimPACK0:
  1122.  and.w d7,d4
  1123.  move.b 1(a5,d4.w*2),d1
  1124.  and.b #31,d1
  1125.  add.l d3,d4
  1126.  move.w (a4,d1.w*2),(a3)
  1127.  adda.w d0,a3
  1128.  addx.w d2,d4
  1129.  dbra d6,drawwallPACK0
  1130.  rts
  1131.  
  1132.  CNOP 0,128 
  1133. drawwallPACK0:
  1134.  and.w d7,d4
  1135.  move.b 1(a5,d4.w*2),d1
  1136.  and.b #31,d1
  1137.  add.l d3,d4
  1138.  move.w (a2,d1.w*2),(a3)
  1139.  adda.w d0,a3
  1140.  addx.w d2,d4
  1141.  dbra d6,drawwalldimPACK0
  1142.  
  1143. nostrip:
  1144.  rts
  1145.  
  1146.  CNOP 0,4
  1147. drawwalldimPACK1:
  1148.  and.w d7,d4
  1149.  move.w (a5,d4.w*2),d1
  1150.  lsr.w #5,d1
  1151.  and.w #31,d1
  1152.  add.l d3,d4
  1153.  move.w (a4,d1.w*2),(a3)
  1154.  adda.w d0,a3
  1155.  addx.w d2,d4
  1156.  dbra d6,drawwallPACK1
  1157.  rts
  1158.  
  1159.  CNOP 0,4 
  1160. drawwallPACK1:
  1161.  and.w d7,d4
  1162.  move.w (a5,d4.w*2),d1
  1163.  lsr.w #5,d1
  1164.  and.w #31,d1
  1165.  add.l d3,d4
  1166.  move.w (a2,d1.w*2),(a3)
  1167.  adda.w d0,a3
  1168.  addx.w d2,d4
  1169.  dbra d6,drawwalldimPACK1
  1170.  
  1171.  rts
  1172.  
  1173.  CNOP 0,4
  1174. drawwalldimPACK2:
  1175.  and.w d7,d4
  1176.  move.b (a5,d4.w*2),d1
  1177.  lsr.b #2,d1
  1178.  add.l d3,d4
  1179.  move.w (a4,d1.w*2),(a3)
  1180.  adda.w d0,a3
  1181.  addx.w d2,d4
  1182.  dbra d6,drawwallPACK2
  1183.  rts
  1184.  
  1185.  CNOP 0,4 
  1186. drawwallPACK2:
  1187.  and.w d7,d4
  1188.  move.b (a5,d4.w*2),d1
  1189.  lsr.b #2,d1
  1190.  add.l d3,d4
  1191.  move.w (a2,d1.w*2),(a3)
  1192.  adda.w d0,a3
  1193.  addx.w d2,d4
  1194.  dbra d6,drawwalldimPACK2
  1195.  rts
  1196.  
  1197.  
  1198. usesimple:
  1199.  mulu d3,d4
  1200.  
  1201.  add.l d0,d4
  1202.  swap d4
  1203.  add.w totalyoff(pc),d4
  1204.  
  1205. cliptopusesimple
  1206.  move.w VALAND,d7
  1207.  move.w #320*2,d0
  1208.  moveq #0,d1
  1209.  cmp.l a4,a2
  1210.  blt.s usea2
  1211.  move.l a4,a2
  1212. usea2:
  1213.  
  1214.  and.w d7,d4
  1215.  
  1216.  move.l d2,d5
  1217.  clr.w d5
  1218.  cmp.b #1,StripData+1
  1219.  dbge d6,simplewalliPACK0
  1220.  dbne d6,simplewalliPACK1
  1221.  dble d6,simplewalliPACK2
  1222.  rts
  1223.  
  1224.  CNOP 0,4
  1225. simplewalliPACK0:
  1226.  move.b 1(a5,d4.w*2),d1
  1227.  and.b #31,d1
  1228.  move.w (a2,d1.w*2),d3
  1229. simplewallPACK0:
  1230.  move.w d3,(a3)
  1231.  adda.w d0,a3
  1232.  add.l d2,d4
  1233.  bcc.s .noread
  1234.  addq #1,d4
  1235.  and.w d7,d4
  1236.  move.b 1(a5,d4.w*2),d1
  1237.  and.b #31,d1
  1238.  move.w (a2,d1.w*2),d3
  1239. .noread:
  1240.  dbra d6,simplewallPACK0
  1241.  rts
  1242.  
  1243.  CNOP 0,4
  1244. simplewalliPACK1:
  1245.  move.w (a5,d4.w*2),d1
  1246.  lsr.w #5,d1
  1247.  and.w #31,d1
  1248.  move.w (a2,d1.w*2),d3
  1249. simplewallPACK1:
  1250.  move.w d3,(a3)
  1251.  adda.w d0,a3
  1252.  add.l d5,d4
  1253.  bcc.s .noread
  1254.  addq #1,d4
  1255.  and.w d7,d4
  1256.  move.w (a5,d4.w*2),d1
  1257.  lsr.w #5,d1
  1258.  and.w #31,d1
  1259.  move.w (a2,d1.w*2),d3
  1260. .noread:
  1261.  dbra d6,simplewallPACK1
  1262.  rts
  1263.  
  1264.  CNOP 0,4
  1265. simplewalliPACK2:
  1266.  move.b (a5,d4.w*2),d1
  1267.  lsr.b #2,d1
  1268.  and.b #31,d1
  1269.  move.w (a2,d1.w*2),d3
  1270. simplewallPACK2:
  1271.  move.w d3,(a3)
  1272.  adda.w d0,a3
  1273.  add.l d5,d4
  1274.  bcc.s .noread
  1275.  addq #1,d4
  1276.  and.w d7,d4
  1277.  move.b (a5,d4.w*2),d1
  1278.  lsr.b #2,d1
  1279.  move.w (a2,d1.w*2),d3
  1280. .noread:
  1281.  dbra d6,simplewallPACK2
  1282.  rts
  1283.  
  1284. ;gotoendnomult:
  1285. ; movem.l d0/d1/d2/d3/d4/d7,-(a7)
  1286. ; add.l timeslarge(pc,d5.w*4),a3 
  1287. ; move.w d5,d4
  1288. ; move.l 4(a1,d2.w*8),d0
  1289. ; move.l (a1,d2.w*8),d2
  1290. ; moveq #0,d3
  1291. ; move.w d2,d3
  1292. ; swap d2
  1293. ; tst.w d2
  1294. ; move.w wallyoff(pc),d4
  1295. ; add.w #44,d4
  1296. ; bne.s .notsimple
  1297. ; cmp.l #$b000,d3
  1298. ; ble cliptopusesimple
  1299. ;.notsimple:
  1300. ; bra cliptop
  1301.  
  1302. MIDDLEY: dc.w 120
  1303. BIGMIDDLEY: dc.l 320*2*120
  1304. TOPOFFSET: dc.w 0
  1305. SMIDDLEY: dc.w 120
  1306. SBIGMIDDLEY: dc.l 320*2*120
  1307. STOPOFFSET: dc.w 0
  1308.  
  1309. gotoend:
  1310.  
  1311.  add.l timeslarge(pc,d5.w*4),a3 
  1312.  
  1313.  move.w d2,d4
  1314.  add.w d2,d2
  1315.  add.w d2,d4
  1316.  
  1317.  move.l 4(a1,d4.w*8),d0
  1318.  add.w TOPOFFSET(pc),d5
  1319.  move.w d5,d4
  1320.  
  1321.  move.l (a1,d2.w*4),d2
  1322.  moveq #0,d3
  1323.  move.w d2,d3
  1324.  swap d2
  1325.  tst.w d2
  1326.  bne.s .notsimple
  1327.  cmp.l #$b000,d3
  1328.  ble usesimple
  1329. .notsimple:
  1330.  
  1331.  mulu d3,d4
  1332.  muls d2,d5
  1333.  add.l d0,d4
  1334.  swap d4
  1335.  add.w d5,d4
  1336.  add.w totalyoff(pc),d4
  1337. cliptop
  1338.  move.w VALAND,d7
  1339.  and.w d7,d4
  1340.  move.w #320*2,d0
  1341.  moveq #0,d1
  1342.  
  1343.  move.l d2,d3
  1344.  clr.w d3
  1345.  
  1346.  cmp.b #1,StripData+1
  1347.  dbge d6,drawwallPACK0
  1348.  dbne d6,drawwallPACK1
  1349.  dble d6,drawwallPACK2
  1350.  rts
  1351.  
  1352. timeslarge:
  1353.  
  1354. val SET 0
  1355.  REPT 256
  1356.  dc.l val
  1357. val SET val+320*2
  1358.  ENDR
  1359.  
  1360.  ds.l 100
  1361.  
  1362. nostripqthru:
  1363.  rts
  1364.  
  1365. ScreenWallstripdrawthru:
  1366.  
  1367.  move.w d4,d6
  1368.  cmp.w topclip(pc),d6
  1369.  blt.s nostripqthru
  1370.  cmp.w botclip(pc),d3
  1371.  bgt.s nostripqthru
  1372.  
  1373.  cmp.w botclip(pc),d6
  1374.  ble.s .noclipbot
  1375.  move.w botclip(pc),d6
  1376. .noclipbot:
  1377.  
  1378.  move.w d3,d5
  1379.  cmp.w topclip(pc),d5
  1380.  bge.s .nocliptop
  1381.  move.w topclip(pc),d5
  1382.  btst #0,d5
  1383.  beq.s .nsbd
  1384.  exg a2,a4
  1385. .nsbd:
  1386.  
  1387.  sub.w d5,d6    ; height to draw.
  1388.  ble.s nostripqthru
  1389.  
  1390.  bra gotoendthru
  1391.  
  1392. .nocliptop:
  1393.  
  1394.  btst #0,d5
  1395.  beq.s .nsbdthru
  1396.  exg a2,a4
  1397. .nsbdthru:
  1398.  
  1399.  sub.w d5,d6    ; height to draw.
  1400.  ble.s nostripqthru
  1401.  
  1402.  bra gotoendthru
  1403.  
  1404.  CNOP 0,4
  1405. drawwalldimthruPACK0:
  1406.  and.w d7,d4
  1407.  move.b 1(a5,d4.w*2),d1
  1408.  and.b #31,d1
  1409.  beq.s .holey
  1410.  move.w (a4,d1.w*2),(a3)
  1411. .holey:
  1412.  adda.w d0,a3
  1413.  add.l d3,d4
  1414.  addx.w d2,d4
  1415.  dbra d6,drawwallthruPACK0
  1416.  rts
  1417.  CNOP 0,4
  1418. drawwallthruPACK0:
  1419.  and.w d7,d4
  1420.  move.b 1(a5,d4.w*2),d1
  1421.  and.b #31,d1
  1422.  beq.s .holey
  1423.  move.w (a2,d1.w*2),(a3)
  1424. .holey:
  1425.  adda.w d0,a3
  1426.  add.l d3,d4
  1427.  addx.w d2,d4
  1428.  dbra d6,drawwalldimthruPACK0
  1429. nostripthru:
  1430.  rts
  1431.  
  1432.  CNOP 0,4
  1433. drawwalldimthruPACK1:
  1434.  and.w d7,d4
  1435.  move.w (a5,d4.w*2),d1
  1436.  lsr.w #5,d1
  1437.  and.w #31,d1
  1438.  beq.s .holey
  1439.  move.w (a4,d1.w*2),(a3)
  1440. .holey:
  1441.  adda.w d0,a3
  1442.  add.l d3,d4
  1443.  addx.w d2,d4
  1444.  dbra d6,drawwallthruPACK1
  1445.  rts
  1446.  CNOP 0,4
  1447. drawwallthruPACK1:
  1448.  and.w d7,d4
  1449.  move.w (a5,d4.w*2),d1
  1450.  lsr.w #5,d1
  1451.  and.w #31,d1
  1452.  beq.s .holey
  1453.  move.w (a2,d1.w*2),(a3)
  1454. .holey:
  1455.  adda.w d0,a3
  1456.  add.l d3,d4
  1457.  addx.w d2,d4
  1458.  dbra d6,drawwalldimthruPACK1
  1459.  rts
  1460.  
  1461.  CNOP 0,4
  1462. drawwalldimthruPACK2:
  1463.  and.w d7,d4
  1464.  move.b (a5,d4.w*2),d1
  1465.  lsr.b #2,d1
  1466.  and.b #31,d1
  1467.  beq.s .holey
  1468.  move.w (a4,d1.w*2),(a3)
  1469. .holey:
  1470.  adda.w d0,a3
  1471.  add.l d3,d4
  1472.  addx.w d2,d4
  1473.  dbra d6,drawwallthruPACK2
  1474.  rts
  1475.  CNOP 0,4
  1476. drawwallthruPACK2:
  1477.  and.w d7,d4
  1478.  move.b (a5,d4.w*2),d1
  1479.  lsr.b #2,d1
  1480.  and.b #31,d1
  1481.  beq.s .holey
  1482.  move.w (a2,d1.w*2),(a3)
  1483. .holey:
  1484.  adda.w d0,a3
  1485.  add.l d3,d4
  1486.  addx.w d2,d4
  1487.  dbra d6,drawwalldimthruPACK2
  1488.  rts
  1489.  
  1490.  
  1491. usesimplethru:
  1492.  mulu d3,d4
  1493.  
  1494.  add.l d0,d4
  1495.  swap d4
  1496.  add.w totalyoff(pc),d4
  1497.  
  1498. cliptopusesimplethru
  1499.  moveq #63,d7
  1500.  move.w #104*4,d0
  1501.  moveq #0,d1
  1502.  cmp.l a4,a2
  1503.  blt.s usea2thru
  1504.  move.l a4,a2
  1505. usea2thru:
  1506.  and.w d7,d4
  1507.  
  1508.  move.l d2,d5
  1509.  clr.w d5
  1510.  
  1511.  cmp.b #1,StripData+1
  1512.  dbge d6,simplewallthruiPACK0
  1513.  dbne d6,simplewallthruiPACK1
  1514.  dble d6,simplewallthruiPACK2
  1515.  rts
  1516.  
  1517.  CNOP 0,4
  1518. simplewallthruiPACK0:
  1519.  move.b 1(a5,d4.w*2),d1
  1520.  and.b #31,d1
  1521.  move.w (a2,d1.w*2),d3
  1522. simplewallthruPACK0:
  1523.  move.w d3,(a3)
  1524.  adda.w d0,a3
  1525.  add.l d5,d4
  1526.  bcc.s noreadthruPACK0
  1527. maybeholePACK0
  1528.  addx.w d2,d4
  1529.  and.w d7,d4
  1530.  move.b 1(a5,d4.w*2),d1
  1531.  and.b #31,d1
  1532.  beq.s holeysimplePACK0
  1533.  move.w (a2,d1.w*2),d3
  1534.  dbra d6,simplewallthruPACK0
  1535.  rts
  1536. noreadthruPACK0:
  1537.  addx.w d2,d4
  1538.  dbra d6,simplewallthruPACK0
  1539.  rts
  1540.  
  1541.  CNOP 0,4
  1542. simplewallholePACK0:
  1543.  adda.w d0,a3
  1544.  add.l d5,d4
  1545.  bcs.s maybeholePACK0
  1546.  addx.w d2,d4
  1547. holeysimplePACK0
  1548.  and.w d7,d4
  1549.  dbra d6,simplewallholePACK0
  1550.  rts
  1551.  
  1552.  CNOP 0,4
  1553. simplewallthruiPACK1:
  1554.  move.w (a5,d4.w*2),d1
  1555.  lsr.w #5,d1
  1556.  and.w #31,d1
  1557.  move.w (a2,d1.w*2),d3
  1558.  simplewallthruPACK1:
  1559.  move.w d3,(a3)
  1560.  adda.w d0,a3
  1561.  add.l d5,d4
  1562.  bcc.s noreadthruPACK1
  1563. maybeholePACK1
  1564.  addx.w d2,d4
  1565.  and.w d7,d4
  1566.  move.w (a5,d4.w*2),d1
  1567.  lsr.w #5,d1
  1568.  and.w #31,d1
  1569.  beq.s holeysimplePACK1
  1570.  move.w (a2,d1.w*2),d3
  1571.  dbra d6,simplewallthruPACK1
  1572.  rts
  1573. noreadthruPACK1:
  1574.  addx.w d2,d4
  1575.  dbra d6,simplewallthruPACK1
  1576.  rts
  1577.  
  1578.  CNOP 0,4
  1579. simplewallholePACK1:
  1580.  adda.w d0,a3
  1581.  add.l d5,d4
  1582.  bcs.s maybeholePACK1
  1583.  addx.w d5,d4
  1584. holeysimplePACK1
  1585.  and.w d7,d4
  1586.  dbra d6,simplewallholePACK1
  1587.  rts
  1588.  
  1589.  
  1590.  CNOP 0,4
  1591. simplewallthruiPACK2:
  1592.  move.b (a5,d4.w*2),d1
  1593.  lsr.b #2,d1
  1594.  and.b #31,d1
  1595.  move.w (a2,d1.w*2),d3
  1596. simplewallthruPACK2:
  1597.  move.w d3,(a3)
  1598.  adda.w d0,a3
  1599.  add.l d5,d4
  1600.  bcc.s noreadthruPACK2
  1601. maybeholePACK2
  1602.  addx.w d2,d4
  1603.  and.w d7,d4
  1604.  move.b (a5,d4.w*2),d1
  1605.  lsr.b #2,d1
  1606.  and.b #31,d1
  1607.  beq.s holeysimplePACK2
  1608.  move.w (a2,d1.w*2),d3
  1609.  dbra d6,simplewallthruPACK2
  1610.  rts
  1611. noreadthruPACK2:
  1612.  addx.w d2,d4
  1613.  dbra d6,simplewallthruPACK2
  1614.  rts
  1615.  
  1616.  CNOP 0,4
  1617. simplewallholePACK2
  1618.  adda.w d0,a3
  1619.  add.l d5,d4
  1620.  bcs.s maybeholePACK2
  1621.  addx.w d2,d4
  1622. holeysimplePACK2
  1623.  and.w d7,d4
  1624.  dbra d6,simplewallholePACK2
  1625.  rts
  1626.  
  1627.  
  1628. gotoendthru:
  1629.  add.l timeslargethru(pc,d5.w*4),a3 
  1630.  move.w d5,d4
  1631.  move.l 4(a1,d2.w*8),d0
  1632.  move.l (a1,d2.w*8),d2
  1633.  moveq #0,d3
  1634.  move.w d2,d3
  1635.  swap d2
  1636.  tst.w d2
  1637.  bne.s .notsimple
  1638.  cmp.l #$b000,d3
  1639.  ble usesimplethru
  1640. .notsimple:
  1641.  
  1642.  mulu d3,d4
  1643.  muls d2,d5
  1644.  add.l d0,d4
  1645.  swap d4
  1646.  add.w d5,d4
  1647.  add.w wallyoff(pc),d4
  1648. cliptopthru
  1649.  moveq #63,d7
  1650.  move.w #104*4,d0
  1651.  moveq #0,d1
  1652.  
  1653.  move.l d2,d3
  1654.  clr.w d3
  1655.  
  1656.  cmp.b #1,StripData+1
  1657.  dbge d6,drawwallthruPACK0
  1658.  dbne d6,drawwallthruPACK1
  1659.  dble d6,drawwallthruPACK2
  1660.  
  1661.  rts
  1662.  
  1663. timeslargethru:
  1664.  
  1665. val SET 104*4
  1666.  REPT 80
  1667.  dc.l val
  1668. val SET val+104*4
  1669.  ENDR
  1670.  
  1671. totalyoff: dc.w 0
  1672. wallyoff: dc.w 0
  1673.  
  1674. ******************************************
  1675. * Wall polygon
  1676. leftend: dc.w 0
  1677. wallbrightoff: dc.w 0
  1678.  
  1679. itsawalldraw:
  1680.  
  1681.  move.l #Rotated,a5
  1682.  move.l #OnScreen,a6
  1683.  
  1684.  move.w (a0)+,d0
  1685.  move.w (a0)+,d2
  1686.  move.w (a0)+,leftend
  1687.  move.w (a0)+,d5
  1688.  move.w (a0)+,d1
  1689.  asl.w #4,d1
  1690.  move.w d1,fromtile
  1691.  
  1692.  move.w (a0)+,d1
  1693.  move.w d1,totalyoff
  1694.  
  1695.  move.w (a0)+,d1
  1696.  move.l #walltiles,a3
  1697.  move.l (a3,d1.w*4),a3
  1698.  move.l a3,PaletteAddr
  1699.  add.l #64*32,a3
  1700.  move.l a3,ChunkAddr
  1701.  
  1702.  ;move.w (a0)+,d1
  1703.  ;add.w ZoneBright,d1
  1704.  move.w ZoneBright,angbright
  1705.  ;move.w (a0)+,d1
  1706.  ;move.w (a0)+,d4
  1707.  move.l yoff,d6
  1708.  
  1709.  move.b (a0)+,VALAND+1
  1710.  move.b (a0)+,VALSHIFT+1
  1711.  move.w (a0)+,HORAND
  1712.  
  1713.  move.w totalyoff,d1
  1714.  add.w wallyoff,d1
  1715.  and.w VALAND,d1
  1716.  move.w d1,totalyoff
  1717.  
  1718.  move.l (a0)+,topofwall
  1719.  sub.l d6,topofwall
  1720.  move.l (a0)+,botofwall
  1721.  sub.l d6,botofwall
  1722.  
  1723.  
  1724.  move.w (a0)+,wallbrightoff
  1725.  
  1726.  move.l topofwall,d3
  1727.  cmp.l botofwall,d3
  1728.  bge wallfacingaway
  1729.  
  1730.  
  1731.  tst.w 6(a5,d0*8)
  1732.  bgt.s cantell
  1733.  tst.w 6(a5,d2*8)
  1734.  ble wallfacingaway
  1735.  bra cliptotestfirstbehind
  1736. cantell:
  1737.  tst.w 6(a5,d2*8)
  1738.  ble.s cliptotestsecbehind
  1739.  bra pastclip
  1740. cliptotestfirstbehind:
  1741.  
  1742.  move.l (a5,d0*8),d3
  1743.  sub.l (a5,d2*8),d3
  1744.  move.w 6(a5,d0*8),d6
  1745.  sub.w 6(a5,d2*8),d6
  1746.  divs d6,d3
  1747.  muls 6(a5,d2*8),d3
  1748.  neg.l d3
  1749.  add.l (a5,d2*8),d3
  1750.  move.w (a6,d2*2),d6
  1751.  sub.w #MIDDLEX,d6
  1752.  ext.l d6
  1753.  cmp.l d6,d3
  1754.  bge wallfacingaway
  1755.  bra cant_tell
  1756.  bra pastclip
  1757.  
  1758. cliptotestsecbehind:
  1759.  
  1760.  move.l (a5,d2*8),d3
  1761.  sub.l (a5,d0*8),d3
  1762.  move.w 6(a5,d2*8),d6
  1763.  sub.w 6(a5,d0*8),d6
  1764.  divs d6,d3
  1765.  muls 6(a5,d0*8),d3
  1766.  neg.l d3
  1767.  add.l (a5,d0*8),d3
  1768.  move.w (a6,d0*2),d6
  1769.  sub.w #MIDDLEX,d6
  1770.  ext.l d6
  1771.  cmp.l d6,d3
  1772.  ble wallfacingaway
  1773.  bra cant_tell
  1774.  
  1775. pastclip:
  1776.  
  1777.  move.w (a6,d0*2),d3
  1778.  cmp.w #RIGHTX,d3
  1779.  bgt wallfacingaway
  1780.  cmp.w (a6,d2*2),d3
  1781.  bge wallfacingaway
  1782.  tst.w (a6,d2*2)
  1783.  blt.s wallfacingaway
  1784.  
  1785. cant_tell:
  1786.  
  1787. ; move.l a1,a4
  1788. ; move.w #31,d6
  1789. ; move.l #0,d3
  1790. ;.emptylop:
  1791. ; move.l d3,(a4)+
  1792. ; dbra d6,.emptylop
  1793.  
  1794. ; move.w rightclip(pc),d6
  1795. ; st (a1,d6)
  1796. ; move.w leftclip(pc),d6
  1797. ; st -1(a1,d6)
  1798.  
  1799. ; muls sinval(pc),d1
  1800. ; muls cosval(pc),d4
  1801. ; add.l d1,d4
  1802. ; add.l d4,d4
  1803. ; swap d4
  1804. ; neg.w d4
  1805. ; move.w d4,d6
  1806. ; asr.w #1,d4
  1807. ; sub.w d4,angbright
  1808. ; and.b #$fe,d4
  1809. ; asl.w #2,d4
  1810. ; asl.w #2,d6
  1811.  
  1812.  movem.l d7/a0/a5/a6,-(a7)
  1813.  move.l (a5,d0*8),a0
  1814. ; add.l a0,a0
  1815.  move.w 6(a5,d0*8),d1
  1816.  move.l (a5,d2*8),a2
  1817. ; add.l a2,a2
  1818.  move.w 6(a5,d2*8),d3
  1819.  
  1820.  move.l PointBrightsPtr,a5
  1821.  move.w (a5,d0.w*4),d0
  1822.  add.w #300,d0
  1823.  add.w wallbrightoff,d0
  1824.  move.w d0,leftwallbright
  1825.  move.w (a5,d2.w*4),d0
  1826.  add.w #300,d0
  1827.  add.w wallbrightoff,d0
  1828.  move.w d0,rightwallbright
  1829.  
  1830.  move.w leftend(pc),d4
  1831.  move.l #max3ddiv,d7
  1832.  bsr walldraw
  1833.  movem.l (a7)+,d7/a0/a5/a6
  1834.  
  1835. wallfacingaway:
  1836.  
  1837.  rts
  1838.  
  1839. PointBrightsPtr: dc.l 0
  1840. midpt: dc.l 0
  1841. dist1: dc.l 0
  1842. dist2: dc.l 0
  1843. VALAND: dc.w 0
  1844. VALSHIFT: dc.w 0
  1845. HORAND: dc.w 0
  1846.  
  1847. sinval: dc.w 0
  1848. cosval: dc.w 0
  1849.  
  1850. oldxoff: dc.w 0
  1851. oldzoff: dc.w 0
  1852.  
  1853. topclip: dc.w 0
  1854. botclip: dc.w 0
  1855. seethru: dc.w 0
  1856.